home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Freeware / ReNamer 5.40 / ReNamer.exe / {app} / Scripts / Move filename portion.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2007-02-13  |  527 b   |  18 lines
  1. { This script moves a portion of a filename }
  2.  
  3. const
  4.   MOVE_START = 5;  // beginning of the movable portion
  5.   MOVE_LENGTH = 3; // length of the movable portion
  6.   MOVE_TO = 3;     // new position for the portion
  7.  
  8. var
  9.   BaseName, Portion: WideString;
  10.  
  11. begin
  12.   BaseName := WideExtractBaseName(FileName);
  13.   Portion := WideCopy(BaseName, MOVE_START, MOVE_LENGTH);
  14.   WideDelete(BaseName, MOVE_START, MOVE_LENGTH);
  15.   WideInsert(Portion, BaseName, MOVE_TO);
  16.   FileName := BaseName + WideExtractFileExt(FileName);
  17. end.
  18.